with Ada.Real_Time;
use Ada.Real_Time;

package ZAPATERIA is
   type zapatos is new Integer;
   type direccion is new Integer;
   type Item is
      record
         dir : direccion;
         zap : zapatos;
         entrada: Time;
         salida: Time;
      end record;
   procedure Arreglar( D: in direccion; Z: in zapatos);
   procedure SetArchivoLog (str : String ) ;


   task ALMACEN is
      entry Agregar (T: in Item );
      entry Sacar (T: out Item );
   end;

   task type EMPLEADO is
      entry Trabajar (n : in Integer; segundos: in Integer ) ;
   end;

private
   MAX : constant := 100 ;
   Deposito : array (1..MAX) of Item ;
   i : integer range 1..MAX := 1; -- siguiente posicion libre
   j : integer range 1..MAX := 1; -- ultima posicion usada
   cantidad : integer range 0..MAX := 0;
   empleados : array (1..3) of EMPLEADO ;

end;
